home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00013_Go Photo Album Sprite Script.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  1.2 KB  |  53 lines
  1. on mouseDown
  2.   global gsCleanUpHandler, giWhereIWas, name, orange, purple, yellow, rainy
  3.   set name to 0
  4.   set giWhereIWas to the frame
  5.   buttonLogic()
  6.   if the result = 1 then
  7.     do(gsCleanUpHandler)
  8.     set the visible of sprite 2 to 1
  9.     if the machineType <> 256 then
  10.       rainfade()
  11.     end if
  12.     if the machineType = 256 then
  13.       puppetSound(0)
  14.       sound stop 1
  15.       sound stop 2
  16.       if (the frame >= 43) and (the frame <= 50) then
  17.         nothing()
  18.       else
  19.         if rainy = 1 then
  20.           set the movieRate of sprite 3 to 0
  21.           set rainy to 0
  22.         else
  23.           repeat with x = 3 to 5
  24.             if the visible of sprite x = 1 then
  25.               set the movieRate of sprite x to 0
  26.               next repeat
  27.             end if
  28.             nothing()
  29.           end repeat
  30.         end if
  31.       end if
  32.       set gbVideoUp to 0
  33.     else
  34.       set gbVideoUp to 0
  35.     end if
  36.     unLoad(139)
  37.     unLoad(176, 183)
  38.     unLoad(522)
  39.     unLoad(519)
  40.     unLoad(168, 175)
  41.     unLoad(446, 460)
  42.     unLoad(426, 459)
  43.     unLoad(520)
  44.     unLoad(155)
  45.     set orange to 0
  46.     set purple to 0
  47.     set yellow to 0
  48.     puppetSound(0)
  49.     puppetSprite(2, 0)
  50.     go("PhotoAlbum")
  51.   end if
  52. end
  53.